_ALERT("INSTRUCTIONS:\n\nTo pause and resume the program, click (or tap) on the screen.")
this_width = 960
SCREEN _NEWIMAGE(this_width, 200, 0)

DO
  c = INT(RND*23): IF c > 15 THEN c = 0
  COLOR c
  xPosNext = POS(1)
  IF xPosNext = (this_width/8) THEN SLEEP 0.00125
  PRINT CHR$(43);
  GOSUB ToggleProgramPause
LOOP WHILE INKEY$=""
END

ToggleProgramPause:
  GETMOUSE x,y,nw,nb
  IF nb <> 0 THEN
    pause = NOT pause
	 WHILE nb <> 0
	   SLEEP 0.0125
		GETMOUSE x,y,nw,nb
    WEND
  END IF
  WHILE pause = TRUE
    GOSUB ToggleProgramPause
  WEND
RETURN